MDI-GT: Monitor Departamental de Indicadores
  • Presentación
  • Ejemplo 1
  • Ejemplo 2
  • Ejemplo 3
  • Ejemplo 4
  • Ejemplo 5
  • Ejemplo Coordenadas
  • Mapa de calor
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
# 1. Cargar la librería stringr (y dplyr para el ejemplo)
library(stringr)
library(dplyr)

# 2. Crear nuestros datos de ejemplo
productos <- tibble(
    codigo = c("PROD-1021", "PROD_1022", "PROD-1023", "PROD_1024", "PROD-1025")
)

# 3. Proceso consolidado de detección y reemplazo
reporte_codigos <- productos %>%
    mutate(
        # PASO DE DETECCIÓN: Creamos una columna que nos dice si el formato es antiguo.
        # str_detect() devuelve TRUE si encuentra un guion bajo "_".
        formato_antiguo = str_detect(codigo, "_"),
        
        # PASO DE REEMPLAZO: Creamos una columna con el código corregido.
        # str_replace_all() busca todos los "_" y los reemplaza por "-".
        codigo_corregido = str_replace_all(codigo, "_", "-")
    )

# 4. Mostrar el resultado
print(reporte_codigos)
# A tibble: 5 × 3
  codigo    formato_antiguo codigo_corregido
  <chr>     <lgl>           <chr>           
1 PROD-1021 FALSE           PROD-1021       
2 PROD_1022 TRUE            PROD-1022       
3 PROD-1023 FALSE           PROD-1023       
4 PROD_1024 TRUE            PROD-1024       
5 PROD-1025 FALSE           PROD-1025       
# 1. Cargar la librería necesaria
library(ggplot2)
library(scales)

# Datos de ejemplo: Ventas mensuales
df <- data.frame(
  mes = 1:6,
  ventas = c(505980, 1250345, 899500, 2150000, 1785100, 450000)
)
# Datos de ejemplo: Crecimiento
df$crecimiento <- c(0.05, 0.12, -0.02, 0.08, 0.15, 0.03)

ggplot(df, aes(x = mes, y = crecimiento)) +
    geom_line() +
    scale_y_continuous(labels = label_percent()) +
    labs(title = "Formato Porcentaje", y = "Crecimiento Mensual")
# 1. Cargar la librería
library(stringi)
# 2. Crear un vector de texto con diversos caracteres especiales
frases_originales <- c(
    "El pingüino se bañó en el río.",
    "José pidió perdón.",
    "Açaí é uma fruta do Brasil.")
# 3. Aplicar la transformación para convertir a ASCII
frases_transformadas <- stri_trans_general(frases_originales, "Latin-ASCII")
# 4. Imprimir para comparar el antes y el después
print("--- ANTES ---")
print(frases_originales)
print("--- DESPUÉS ---")
print(frases_transformadas)
#==========================================================
# 1. Crear un vector con precios en diferentes monedas
precios <- c(
    "Laptop: $999.00",
    "Café: €3.50",
    "Libro: ¥1200",
    "Pasaje de bus: Q5.00"
)
simbolos_encontrados <- stri_extract_all_regex(precios, "\\p{Sc}")
print(simbolos_encontrados)
[1] "--- ANTES ---"
[1] "El pingüino se bañó en el río." "José pidió perdón."            
[3] "Açaí é uma fruta do Brasil."   
[1] "--- DESPUÉS ---"
[1] "El pinguino se bano en el rio." "Jose pidio perdon."            
[3] "Acai e uma fruta do Brasil."   
[[1]]
[1] "$"

[[2]]
[1] "€"

[[3]]
[1] "¥"

[[4]]
[1] NA
# 1. Cargar la librería necesaria
library(leaflet)
# 2. Crear el mapa con el pipe %>%
leaflet() %>%
  addTiles() %>%
  setView(lng = -102.5528, lat = 23.6345, zoom = 5)
# 1. Cargar la librería necesaria
library(leaflet)
# 2. Crear el mapa con el pipe %>%
leaflet() %>%
    addTiles() %>%
    flyToBounds(lng1 = -90.2, lat1 = 13.0, lng2 = -87.7, lat2 = 14.5,
                options = list(animate = TRUE))
Latitud: 16.01° Longitud: -90.04°

Filtros

Seleccione un indicador y el período para visualizar los datos.
Mapa de Indicadores Económicos por Departamento
MDI-GT

Monitor Departamental de Indicadores


Banco de Guatemala
Programa de Estudios Superiores
2025

Integrantes:
-Nuria Saraí Torres Aldana
-David Alejandro Del Cid
-Diego Andrés Menendez